﻿Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports DevExpress.UserSkins

Friend Class Program
    Private Sub New()
    End Sub
    <STAThread()> _
    Shared Sub Main(ByVal arguments As String())
        OfficeSkins.Register()
        BonusSkins.Register()
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New SG_Control_Vuelos_Main1)
    End Sub

    '   Sub SaveCurrentSkin()
    ' Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
    '     If config.AppSettings.Settings("Skin") Is Nothing Then
    '         config.AppSettings.Settings.Add("Skin", UserLookAndFeel.Default.ActiveSkinName)
    '     Else
    '         config.AppSettings.Settings("Skin").Value = UserLookAndFeel.Default.ActiveSkinName
    '     End If
    '     config.Save()
    ' End Sub

    'Sub LoadCurrentSkin()
    ' Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
    '     If config.AppSettings.Settings("Skin") Is Nothing Then
    '         Return
    '     Else
    '         UserLookAndFeel.Default.ActiveLookAndFeel.SkinName = config.AppSettings.Settings("Skin").Value
    '     End If
    ' End Sub
End Class